0 REM STRIP & CLEAN (AUG 29/84)       :
1 :
2 REM 0 STATEMENTS, 2 FUNCTIONS
3 :
4 REM KEYWORD CHARACTERS: 14
5 :
6 REM KEYWORD     ROUTINE  LINE   SER #
7 REM F/STRIP$(   STRIP    3984    045
8 REM F/CLEAN$(   CLEAN    3988    046
9 :
10 REM U/CIFCHR (2560/003)
11 REM U/CIFNUM (4092/047)
12 :
13 REM ================================
14 :
609 .ASC "STRIP$[168]CLEAN$[168]"
1609 .WORD STRIP-1,CLEAN-1
2560 CIFCHR CMP #$5B
2562 BCC CIC1
2564 CLC
2566 BCC CIC2
2568 CIC1 CMP #$41
2570 CIC2 RTS
2572 ;
3984 STRIP LDA #$80
3986 .BYTE $2C
3988 CLEAN LDA #0
3990 PHA
3992 JSR $AEF4
3994 JSR $B6A3
3996 STA T3
3998 PLA
4000 STA T4
4002 TXA
4004 PHA
4006 TYA
4008 PHA
4010 LDA T3
4012 JSR $B47D
4014 PLA
4016 STA $23
4018 PLA
4020 STA $22
4022 STX $24
4024 STY $25
4026 LDX #0
4028 STX T5
4030 LDY #$FF
4032 CLN1 INY
4034 CPY T3
4036 BEQ CLN4
4038 LDA ($22),Y
4040 AND #$7F
4042 JSR CIFCHR
4044 BCS CLN2
4046 JSR CIFNUM
4048 BCS CLN2
4050 BIT T4
4052 BMI CLN1
4054 BVS CLN1
4056 CMP #$20
4058 BNE CLN1
4060 CLC
4062 CLN2 STA ($24,X)
4064 LDA T4
4066 AND #$80
4068 BCS CLN3
4070 ORA #$40
4072 CLN3 STA T4
4074 INC T5
4076 INC $24
4078 BNE CLN1
4080 INC $25
4082 BNE CLN1
4084 CLN4 LDA T5
4086 STA $61
4088 JMP $B4CA
4090 ;
4092 CIFNUM CMP #":"
4094 BCC CIN1
4096 CLC
4098 BCC CIN2
4100 CIN1 CMP #"0"
4102 CIN2 RTS
4104 ;